1 DATA0,0,0,0,192,96,1,64,80,1,64,80,1,64,80,2,74,72,2,91,72,2,91,72,2,123,200
2 DATA2,10,8,2,10,8,2,17,8,2,17,8,1,32,144,1,32,144,1,32,144,1,32,144,3,251,248
3 DATA3,251,248,3,251,248,3,251,248
4 POKE53280,0:POKE53281,3:PRINT"[147][144]C64 BODY BUILDING   '89 BY C.KAMMERMEYER"
5 PRINT"":FORI=1TO20:PRINT"[195][178]";:NEXT
6 PRINT"[144] 06 05 [158]04 [144]03 02 01 00 01 02 03 [158]04 [144]05 06  PORT 1";TAB(33)"PORT 2"
7 POKE2040,11:POKE53269,1:F=155:PA=20:PB=20:V=53248:S=54200
8 FORX=0TO62:READ D:POKE704+X,D:NEXT:POKEV+23,1:POKEV+29,1
9 J1=PEEK(56321):J2=PEEK(56320):IFO=1 THEN GOTO 12
10 IFJ1=A THEN F=F-5:PA=PA+1:PB=PB-1:GOTO15
11 IFJ1<>255THEN A=J1:O=1:F=F+5:PA=PA-1:PB=PB+1:GOTO 15
12 IFJ2=B THEN F=F+5:PB=PB+1:PA=PA-1:GOTO15
13 IFJ2<>127THEN B=J2:O=0:F=F-5:PB=PB-1:PA=PA+1:GOTO 15
14 O=0:GOTO 9
15 POKEV+39,8:POKE53249,145:POKE53248,F:PRINT"";TAB(10)"   ";TAB(37)"   "
16 IFF>252 THEN A$="PLAYER 1":GOTO 19
17 IFF<60 THEN A$="PLAYER 2":GOTO 19
18 PRINT"[156]PLAYER 1:";PA;TAB(27)"PLAYER 2:";PB:GOTO 9
19 POKES+96,15:POKES+78,240:FORI=1TO80:POKES+76,33:POKES+73,33:NEXT:POKES+76,0
20 POKES+73,0:PRINT"[144]";TAB(11)"WINNER:";A$:FORX=1TO6000:NEXTX:RUN